home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 128 / 128.d81 / b.op ed 128 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  55 lines
  1. 10 poke56,64:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 25 poke788,52
  4. 30 poke53281,0:poke53280,0:print"[147][129]"tab(7)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
  5. 40 printtab(11)"[155]by [200]ugh [205]c[205]enamin
  6. 42 [139]f1[167]102
  7. 44 f1[178]1
  8. 50 [158]57812"wp/cm/unp",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  9. 62 [158]57812"j.denial.shp",dv,0:[151]780,0:[151]781,0:[151]782,104:[158]65493
  10. 64 [158]57812"j.grundy.shp",dv,0:[151]780,0:[151]781,0:[151]782,127:[158]65493
  11. 90 [151]53280,0
  12. 92 wp[178]49152:un[178]51456:cm[178]50688
  13. 94 lf$(0)[178]"(NULL)ascasc":lf$(1)[178]"(NULL)(NULL) "
  14. 96 s(1)[178]104:s(2)[178]127
  15. 102 [153][163]12)" 1.cont str$enial
  16. 103 printtab(12)" 2.[154] [205]r. [199]rundy
  17. 104 [153][163]12)" 3.cont (NULL)uit
  18. 106 geta$:ifa$<"1"ora$>"3"then106
  19. 108 d=val(a$):ifd=3then40000
  20. 109 fori=3to10:poke781,i:sys59903:next
  21. 112 poke251,s(d):poke252,64:poke253,96:sys51456
  22. 120 print"[145][145][145][145] 1.[154] [202]ust show the picture.
  23. 122 [153]" 2.cont (NULL)how the picture and print it on
  24. 125 print"    a 7-pin (1525-emulating) printer.
  25. 130 [153]" 3.cont (NULL)how the picture and print it on
  26. 135 print"    an 8-pin ([197]pson-emulating) printer.
  27. 140 [153]" 4.cont (NULL)oggle linefeed -- "lf$(lf)
  28. 150 [153]" 5.cont (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  29. 170 print"[155]  [205]ake sure your printer is on-line.
  30. 220 [151]198,0
  31. 222 [151]53280,0
  32. 230 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]230
  33. 232 [139]a$[178]"5"[167]40000
  34. 233 [139]a$[178]"4"[167]lf[178]1[171]lf:[151]214,12:[153]:[153][163]23)""lf$(lf):[137]220
  35. 235 [158]51459
  36. 240 [139]a$[178]"2"[167][158]49155,4,0,lf,0,0,39,24,64:[137]280
  37. 250 [139]a$[178]"3"[167][158]49152,4,5,lf,0,0,39,24,64,75,35,65,8,0:[137]280
  38. 260 [151]198,0
  39. 262 [151]53280,0
  40. 270 [161]a$:[139]a$[178]""[167]270
  41. 280 [151]251,s(d):[151]252,64:[151]253,96:[158]51459
  42. 290 [153]"load":[137]30
  43. 10000 dv[178][194](186):[159]15,dv,15,"s0:b.op ed 128":[160]15:[148]"b.op ed 128",dv:[128]
  44. 40000 [151]788,49
  45. 40002 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  46. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  47. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  48. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  49. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  50. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  51. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  52. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  53. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  54. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  55.